home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue49 / Build / tail.dpr < prev    next >
Encoding:
Text File  |  1999-03-20  |  402 b   |  24 lines
  1. {$APPTYPE Console}
  2.  
  3. program tail;
  4.  
  5. uses
  6.   SysUtils,
  7.   Classes;
  8.  
  9. var
  10.   str  : TStringList;
  11.   i    : integer;
  12.   first: integer;
  13.  
  14. begin
  15.   str := TStringList.Create;
  16.   try
  17.     str.LoadFromFile(ParamStr(1));
  18.     first := str.Count-StrToIntDef(ParamStr(2),20);
  19.     if first < 0 then first := 0;
  20.     for i := first to str.Count-1 do
  21.       Writeln(str[i]);
  22.   finally str.Free; end;
  23. end.
  24.